proc expected_out {N} {
	
	set result [expr int(int(int(int(int(~(int(int(int(int(int(int(int(int(int(int ($N)*2)*20)+5)*3)>>3)*10)-10)<<1)<<5)-25)))+1)& 0xAAAAAAAA)/3)]
	set result [expr int (int($result)* int ($result))]
	
	return $result
} 

set i 5
set a [catch {exec ./a.out $i} output ]

 

puts $output 
